perm filename ALMAIN.PAS[AL,HE]3 blob sn#701180 filedate 1983-03-09 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(*$R60 allocate more core for heap *)
C00003 ENDMK
CāŠ—;
(*$R60 allocate more core for heap *)

program al;

procedure initAlloc; extern;				(* from ALLOC.PAS *)
procedure initEditor; extern;				(* from EDIT.PAS *)
procedure edit; extern;
procedure initWorld; extern;				(* from INTERP.PAS *)
procedure consDef; extern;

begin
initAlloc;		(* initialize dynamic storage allocator *)
consDef;		(* define constants - needed by parser *)
initEditor;		(* get the Editor ready *)
initWorld;		(* get the Interpreter ready too *)

edit;
writeln(ttyoutput);
writeln(ttyoutput,'Bye');
end.